home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / phagexsources.lha / source / SineWaveGen.s < prev    next >
Encoding:
Text File  |  1994-07-10  |  681 b   |  44 lines
  1. DoXYSine    Lea    XSize(pc),a4
  2.     Lea    SineXPt(pc),a5
  3.     Bsr    DoSine
  4.     Move.w    d3,(a4)
  5.     Lea    YSize(pc),a4
  6.     Lea    SineYPt(pc),a5
  7.     Bsr    DoSine
  8.     Move.w    d3,(a4)
  9.     Rts
  10.  
  11. DoSine    Lea    SineData(pc),a6
  12.     Moveq    #0,d2
  13.     Moveq    #0,d3
  14.     Move.l    08(a5),d0
  15.     Move.l    12(a5),d1
  16.     Add.l    d0,00(a5)
  17.     Add.l    d1,04(a5)
  18.     And.l    #$ffe,00(a5)    
  19.     And.l    #$ffe,04(a5)    
  20.     Move.l    00(a5),d0
  21.     Move.l    04(a5),d1    
  22.     Move.w    (a6,d0.l),d2
  23.     Move.w    (a6,d1.l),d3    
  24.     Add.l    d2,d3    
  25.     Asl.w    #3,d3
  26.     Add.w    #4096,d3
  27.     Rts        
  28.  
  29. XSize    Dc.w    0
  30. YSize    Dc.w    0
  31.  
  32. SineXPt    Dc.l    0
  33. SineXPt1    Dc.l    0
  34. SineXAdd    Dc.l    66
  35. SineXAdd1    Dc.l    88
  36.  
  37. SineYPt    Dc.l    0
  38. SineYPt1    Dc.l    0
  39. SineYAdd    Dc.l    82
  40. SineYAdd1    Dc.l    32
  41.  
  42. SineData    Incbin    df0:SysData/Sine1024Bs.Dat
  43.     Incbin    df0:SysData/Sine1024Bs.Dat
  44.